home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 50
/
Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso
/
Aminet
/
text
/
misc
/
OneLine.lha
/
OneLine
/
Install_OneLine
< prev
next >
Wrap
Text File
|
2002-04-07
|
3KB
|
154 lines
(set @app-name "OneLineGFX")
(welcome "OneLineGFX 1.3 & OneLineLIGHT 1.3L\n\nby Vincenzo Barbarulo\nv. G.Mazzini Cava de' Tirreni (SA)\nITALY") (set s2 "irit")
(set #Msg_wrong_OS "\nOneLineGFX 1.3 isn't tested with your OS version!\n\nContinue?")
(set #Msg_InstallOneLine "Install OneLineGFX 1.3")
(set #Msg_SelectPath "Select the path for OneLineGFX executable\n(SYS:Tools/)")
(set #Msg_LibraryInstall "Copy ReqTools.library in LIBS: ?")
(set #Msg_FontsInstall "Copy Fonts in FONTS: ?")
(set #Msg_DocInstall "Copy OneLineGFX.doc in HELP: ?")
(set #Msg_END_Install "DONE!\n\nOneLineGFX 1.3 installed")
(set #OS_VER (/ (getversion) 65536) ) (set s1 "Sp")
(if(< #OS_VER 40)
(askbool
(prompt #Msg_wrong_OS)
(help #dir-help)
(default 1)
)
)
(complete 20)
(if (not (exists "SYS:Fonts"))
(
(makedir "SYS:Fonts"
(prompt #dir-prompt)
(help #dir-help)
(infos)
)
)
)
(complete 30)
(if (not (exists "SYS:Libs"))
(
(makedir "SYS:Libs"
(prompt #dir-prompt)
(help #dir-help)
(infos)
)
)
)
(complete 40)
(if (not (exists "SYS:C"))
(
(makedir "SYS:C"
(prompt #dir-prompt)
(help #dir-help)
(infos)
)
)
)
(complete 50)
(if (< (exists "HELP:") 22)
(set #Msg_Help "SYS:")
)
(copyfiles
(prompt #Msg_FontsInstall)
(help @copyfiles-help)
(source "RAM:OneLine/Fonts/")
(dest "SYS:Fonts/")
(all)
(confirm)
)
(complete 60)
(copyfiles
(prompt #Msg_LibraryInstall)
(help @copyfiles-help)
(source "RAM:OneLine/Libs/")
(dest "SYS:Libs/")
(all)
(confirm)
)
(complete 70)
(copyfiles
(prompt #Msg_DocInstall)
(help @copyfiles-help)
(source "RAM:OneLine/OneLine.doc")
(dest #Msg_Help)
(confirm)
)
(copyfiles
(prompt #Msg_DocInstall)
(help @copyfiles-help)
(source "RAM:OneLine/OneLine.doc.info")
(dest #Msg_Help)
(confirm)
)
(complete 80)
(set destdir
(askdir
(prompt #Msg_SelectPath)
(help @copyfiles-help)
(default "SYS:Tools/")
)
)
(set @default-dest (expandpath destdir))
(copyfiles
(prompt #Msg_Installing)
(help @copyfiles-help)
(source "RAM:OneLine/OneLine")
(dest destdir)
(all)
(confirm)
)
(copyfiles
(prompt #Msg_Installing)
(help @copyfiles-help)
(source "RAM:OneLine/OneLine.info")
(dest destdir)
(confirm)
)
(complete 90)
; OneLine_LIGHT
(copyfiles
(prompt #Msg_Installing)
(help @copyfiles-help)
(source "RAM:OneLine/OneLineLIGHT")
(dest "SYS:C/")
(confirm)
)
(run (safe) "Run <>NIL: SYS:Utilities/Multiview RAM:OneLine/OneLine.Readme")
(complete 100)
(exit #Msg_InstallOneLineGFX)